home *** CD-ROM | disk | FTP | other *** search
/ Aminet 15 / Aminet 15 - Nov 1996.iso / Aminet / dev / e / e_modules02.lha / e_modules02 / framework / myWindow.e < prev    next >
Encoding:
Text File  |  1996-07-31  |  960 b   |  49 lines
  1. OPT MODULE
  2. OPT EXPORT, OSVERSION=37
  3.  
  4. MODULE 'fw/wbObject','*easyWindow',
  5.        'tools/easygui','utility/tagitem'
  6.  
  7. OBJECT myWindow OF easyWindow
  8. ENDOBJECT
  9.  
  10. PROC open() OF myWindow HANDLE
  11.   self.create(
  12.     'EasyGUI Tests',
  13.     [BEVELR,
  14.       [EQROWS,
  15.         [SBUTTON,{dummy},'Dummy Button'],
  16.         [SBUTTON,{test},'Tiny Test'],
  17.         [SBUTTON,0,'Request'],
  18.         [BAR],
  19.         [CYCLE,{dummy},'',['One','Two','Three',NIL],0]
  20.       ]
  21.     ])
  22.   IF self.handle=NIL THEN Raise(0)
  23.   RETURN TRUE
  24. EXCEPT
  25.   self.remove()
  26. ENDPROC FALSE
  27.  
  28. PROC handleMessage(info) OF myWindow
  29.   DEF res
  30.   IF info=0
  31.     res:=easygui('Request',
  32.       [ROWS,
  33.         [ROWS,
  34.           [TEXT,' Koniec programu?',NIL,FALSE,12]
  35.         ],
  36.         [BAR],
  37.         [EQCOLS,
  38.           [SBUTTON,0,'Tak'],
  39.           [SPACEH],
  40.           [SBUTTON,1,'Nie']
  41.         ]
  42.       ])
  43.     IF res=0 THEN RETURN STOPALL
  44.   ENDIF
  45. ENDPROC CONTINUE
  46.  
  47. PROC dummy() IS EMPTY
  48. PROC test() IS WriteF('Tinny Test :)\n')
  49.